home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 35 / Tiger_Disk_035_1997-02_Tiger-Crew-Disk_de_Side_B.d64 / kurzbrief (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  66 lines
  1. 10 print"[147]bitte zunaechst in den zeilen"
  2. 20 print"220   eigenen namen,"
  3. 30 print"230   strasse und hausnummer,"
  4. 40 print"240   postleitzahl und ort,"
  5. 50 print"390   ort,"
  6. 60 print"250   telefon-nummer"
  7. 70 print"im 'umfang' der vorgegebenen '";chr$(34);"' ein-"
  8. 80 print"setzen!"
  9. 90 print"dann die zeilen 10 - 95 loeschen und"
  10. 94 print"das programm neu speichern!"
  11. 95 poke198,0:wait198,1:poke198,0:end
  12. 100 poke53281,25:poke53280,25:clr
  13. 110 print"[147][155]kurzbrief                               [184][184][184][184][184][184][184][184][184]"
  14. 120 input"druckeradresse (4/5)";d
  15. 130 ifd<4ord>5thengosub610:goto120
  16. 140 gosub510
  17. 150 input"wieviel ausdrucke ";x
  18. 160 ifx<1then150
  19. 170 printtab(14)"bitte warten
  20. 180 [153][163]12)"drucker arbeitet"
  21. 190 [129]t[178]1[164]x
  22. 200 [159]1,d,7
  23. 210 [152]1,"tab(tab(tab(tab(tab(";[163]67)"tab(tab(tab(tab(tab("
  24. 220 [152]1,[199](14),[163]57)"(NULL)right$chr$val(NULL) - len(NULL)val(NULL)"
  25. 230 [152]1,[199](14)"(NULL)urzbrief     ",[199](15),"asceldstrasse 17   "
  26. 240 [152]1,[199](14)"right$nformation",[199](15),[163]6)"36391 (NULL)right$(NULL)(NULL)(NULL)atn(NULL)    "
  27. 250 [152]1,[163]58)"(NULL)el.:06664 / 7469"
  28. 260 [152]1,[199](14)"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  29. 270 [152]1,[199](15)"(NULL)right$(NULL) str$val(NULL)    o valrledigung    o (NULL)enntnisnahme";
  30. 280 [152]1,"             o (NULL)chreiben  o (NULL)uster"
  31. 290 [152]1,"peekright$(NULL)(NULL)val (NULL)(NULL):  o valntscheidung  o atnnruf            atn(NULL)(NULL)atnchr$val:  o (NULL)opie";
  32. 300 [152]1,"      o (NULL)ertrag"
  33. 310 [152]1,"           o (NULL)ueckgabe     o (NULL)tellungnahme    tab(tab(tab(tab(tab(tab(tab(  ";
  34. 320 [152]1,"o (NULL)echnung   o"
  35. 330 [152]1,[199](14)"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  36. 340 [152]1,[199](15),[163]36)"peekemerkung:"
  37. 350 [152]1,[163]46)"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  38. 360 [152]1,[199](14)"   ortantantantantantantantantantantantantan^"
  39. 370 [129]pr[178]1[164]8:[152]1:[130]
  40. 380 [152]1,[199](14)"   /tantantantantantantantantantantantantanexp":[152]1
  41. 390 [152]1,[199](15),[163]36)"(NULL)inntal, den ...........199."
  42. 400 [152]1
  43. 410 [152]1,"tab(tab(tab(tab(tab(";[163]67)"tab(tab(tab(tab(tab("
  44. 420 [152]1:[152]1:[152]1:[152]1:[152]1:[152]1:[152]1:[152]1:[152]1
  45. 430 [160]1
  46. 440 [130]
  47. 450 [153][163]14)"            nwaiteuer ausdruck"
  48. 460 [153][163]12)"pwaitrg.ende         "
  49. 470 [161]a$:[139]a$[178]""[167]470
  50. 480 [139]a$[178]"n"[167][138]
  51. 490 [139]a$[178]"p"[167][158]64738
  52. 500 [137]470
  53. 510 [143] druckerabfrage mit signalton
  54. 520 x[178]a [176] d [176] 4
  55. 530 [151]768,61:[159]1,x,7:[152]1,"";:[160]1:[151]768,139:[139]st[179][177][171]128[167][142]
  56. 540 [153][163]11)"drucker einschaltencontwait"
  57. 550 [153][163]16)"[taste]waitlist"
  58. 560 [151]54296,15:[151]54272,0:[151]54273,40:[151]64277,0
  59. 570 [151]54278,240:[151]54276,33
  60. 580 [161]y$:[139]y$[178]""[167]580
  61. 590 [143] tastaturpieps
  62. 600 [151]54276,32:[138]
  63. 610 [151]54296,15:[151]54272,0:[151]54273,40:[151]64277,0
  64. 620 [151]54278,240:[151]54276,33
  65. 630 [129]t[178]1[164]100:[130]:[151]54276,32:[142]
  66.